;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
(DEFUN c:debugsetvar ()
  (IF old_setvar
    (SETQ SETVAR     old_setvar
          old_setvar nil
    ) ;_ end of setq
    (PROGN
      (SETQ old_setvar SETVAR)
      (DEFUN SETVAR
                    (fun_name fun_val /)
        (IF (EQ (STRCASE (EVAL fun_name)) "DIMSCALE")
          nil
          (PROGN
            (PRINC fun_name)
            (COMMAND ".setvar" fun_name fun_val)
            (PRINC (STRCAT "\nDEBUGSETVAR: " fun_name " set to "))
            (PRINC fun_val)
;;;            (PRINC "\n")
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of defun
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun
